Gold Medal Software 5/Gold Medal Software - Volume 5 (Gold Medal) (1995).iso/windows/misc/tapecalc.arj/OPTIONS.TXT

Text File | 1994-10-20 | 9KB | 257 lines

VERSION 2.00
Begin Form FormOptions
   BorderStyle     =   1  'Fixed Single
   Caption         =   "TapeCalc Options"
   ClientHeight    =   3480
   ClientLeft      =   1980
   ClientTop       =   2415
   ClientWidth     =   4560
   ControlBox      =   0   'False
   Height          =   4005
   Left            =   1920
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3480
   ScaleWidth      =   4560
   Top             =   1950
   Width           =   4680
   Begin SSPanel OptionPanel
      Align           =   1  'Align Top
      BackColor       =   &H00C0C0C0&
      BevelInner      =   1  'Inset
      BorderWidth     =   1
      Font3D          =   0  'None
      ForeColor       =   &H000000FF&
      Height          =   3495
      Left            =   0
      TabIndex        =   11
      Top             =   0
      Width           =   4560
      Begin SSFrame FrameTapeLen
         Caption         =   "Tape Length"
         Font3D          =   0  'None
         Height          =   615
         Left            =   120
         TabIndex        =   15
         Top             =   2160
         Width           =   4335
         Begin TextBox TextTapeLen
            Alignment       =   1  'Right Justify
            BackColor       =   &H00C0C0C0&
            Height          =   285
            HelpContextID   =   106
            Left            =   120
            MaxLength       =   4
            TabIndex        =   7
            Top             =   240
            Width           =   1095
         End
         Begin Label LabelTapeLen
            BackStyle       =   0  'Transparent
            Caption         =   "lines (40-1000)"
            Height          =   255
            Left            =   1320
            TabIndex        =   16
            Top             =   240
            Width           =   2895
         End
      End
      Begin CommonDialog CMDialog1
         Left            =   4080
         Top             =   0
      End
      Begin SSFrame FramePaste
         Caption         =   "Paste Options"
         Font3D          =   0  'None
         Height          =   1935
         Left            =   120
         TabIndex        =   12
         Top             =   120
         Width           =   4335
         Begin SSFrame FrameWhat
            Caption         =   "Add What"
            Font3D          =   0  'None
            Height          =   1455
            Left            =   2760
            TabIndex        =   14
            Top             =   360
            Width           =   1455
            Begin SSOption OptionWhat
               Caption         =   "+"
               Font3D          =   0  'None
               FontBold        =   -1  'True
               FontItalic      =   0   'False
               FontName        =   "MS Sans Serif"
               FontSize        =   13.5
               FontStrikethru  =   0   'False
               FontUnderline   =   0   'False
               Height          =   360
               HelpContextID   =   106
               Index           =   0
               Left            =   240
               TabIndex        =   3
               Top             =   360
               Value           =   -1  'True
               Width           =   495
            End
            Begin SSOption OptionWhat
               Caption         =   "-"
               Font3D          =   0  'None
               FontBold        =   -1  'True
               FontItalic      =   0   'False
               FontName        =   "MS Sans Serif"
               FontSize        =   13.5
               FontStrikethru  =   0   'False
               FontUnderline   =   0   'False
               Height          =   360
               HelpContextID   =   106
               Index           =   1
               Left            =   240
               TabIndex        =   4
               TabStop         =   0   'False
               Top             =   720
               Width           =   495
            End
            Begin SSOption OptionWhat
               Caption         =   "*"
               Font3D          =   0  'None
               FontBold        =   -1  'True
               FontItalic      =   0   'False
               FontName        =   "MS Sans Serif"
               FontSize        =   13.5
               FontStrikethru  =   0   'False
               FontUnderline   =   0   'False
               Height          =   360
               HelpContextID   =   106
               Index           =   2
               Left            =   840
               TabIndex        =   5
               TabStop         =   0   'False
               Top             =   360
               Width           =   495
            End
            Begin SSOption OptionWhat
               Caption         =   "/"
               Font3D          =   0  'None
               FontBold        =   -1  'True
               FontItalic      =   0   'False
               FontName        =   "MS Sans Serif"
               FontSize        =   13.5
               FontStrikethru  =   0   'False
               FontUnderline   =   0   'False
               Height          =   360
               HelpContextID   =   106
               Index           =   3
               Left            =   840
               TabIndex        =   6
               TabStop         =   0   'False
               Top             =   720
               Width           =   495
            End
         End
         Begin SSFrame FrameWhere
            Caption         =   "Add Where"
            Font3D          =   0  'None
            Height          =   1455
            Left            =   120
            TabIndex        =   13
            Top             =   360
            Width           =   2535
            Begin SSOption OptionWhere
               Caption         =   "&No additions"
               Font3D          =   0  'None
               Height          =   375
               HelpContextID   =   106
               Index           =   0
               Left            =   120
               TabIndex        =   0
               Top             =   240
               Value           =   -1  'True
               Width           =   1695
            End
            Begin SSOption OptionWhere
               Caption         =   "Add after each &Number"
               Font3D          =   0  'None
               Height          =   375
               HelpContextID   =   106
               Index           =   1
               Left            =   120
               TabIndex        =   1
               TabStop         =   0   'False
               Top             =   600
               Width           =   2295
            End
            Begin SSOption OptionWhere
               Caption         =   "Add after each &Line"
               Font3D          =   0  'None
               Height          =   375
               HelpContextID   =   106
               Index           =   2
               Left            =   120
               TabIndex        =   2
               TabStop         =   0   'False
               Top             =   960
               Width           =   2295
            End
         End
      End
      Begin CommandButton ButtonHelp
         Caption         =   "&Help"
         Height          =   495
         Left            =   3000
         TabIndex        =   10
         Top             =   2880
         Width           =   1455
      End
      Begin CommandButton ButtonCancel
         Cancel          =   -1  'True
         Caption         =   "Cancel"
         Height          =   495
         Left            =   1440
         TabIndex        =   9
         Top             =   2880
         Width           =   1215
      End
      Begin CommandButton ButtonOk
         Caption         =   "OK"
         Default         =   -1  'True
         Height          =   495
         Left            =   120
         TabIndex        =   8
         Top             =   2880
         Width           =   1215
      End
   End
End
Option Explicit

Sub ButtonCancel_Click ()
  Tag = 0
  Hide
End Sub

Sub ButtonHelp_Click ()
  Const HELP_CONTEXT = &H1
  CMDialog1.HelpCommand = HELP_CONTEXT
  CMDialog1.HelpContext = 106
  CMDialog1.HelpFile = "tapecalc.hlp"
  CMDialog1.Action = 6
End Sub

Sub ButtonOk_Click ()
  Tag = 1
  Hide
End Sub

Sub TextTapeLen_KeyPress (KeyAscii As Integer)
  Select Case KeyAscii
    Case 48 To 57, 8
      ' permit digits and backspace
    Case Else
      ' suppress all other keys
      KeyAscii = 0
  End Select
End Sub